Shareware Grab Bag/Shareware Grab Bag.iso/007/function.arc/FUNC1C.INC

Text File | 1985-06-15 | 384 b | 12 lines

{ Get allocation table information for a specific disk drive           }

PROCEDURE Func1C (D : INTEGER);
 BEGIN
  WITH Registers DO
   BEGIN
    AX:=((AX AND $00FF) OR ($1C SHL 8));
    DX:=((DX AND $FF00) OR (D AND $00FF));
    MSDOS (Registers);
   END;
 END;